home *** CD-ROM | disk | FTP | other *** search
/ macdrivermuseum.net / www.macdrivermuseum.net.tar / www.macdrivermuseum.net / cdt.hqx / CDT Folder / Audio / PlayCD / background_2644.txt < prev    next >
Text File  |  1990-09-19  |  19KB  |  796 lines
  1. -- background: 2644 from stack: in
  2. -- bmap block id: 3159
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   global gJukeList,gUp2Bat,gPorts
  9.   lock screen
  10.   put bg fld Port into lastID
  11.   put (lastID+2) into i
  12.   -- set i to line after Port+1 (port range is 0-6)
  13.   if direction = "right" then
  14.     repeat until line i of gPorts <> ""
  15.       set cursor to busy
  16.       add 1 to i
  17.       if i = 8 then put 1 into i --(gPorts has 7 lines)
  18.       if i = (lastID+1) then exit repeat
  19.     end repeat
  20.   end if
  21.   if direction = "left" then
  22.     repeat until line i of gPorts <> ""
  23.       set cursor to busy
  24.       subtract 1 from i
  25.       if i = 0 then put 7 into i --(gPorts has 7 lines)
  26.       if i = (lastID+1) then exit repeat
  27.     end repeat
  28.   end if
  29.   --if there are no other discs around, go to the blank disc card
  30.   if i = lastID then go cd 1
  31.   else find line i of gPorts in bg fld discID
  32.   set cursor to hand
  33.   if direction = "down" then
  34.     put line 1 of gJukeList &return after gJukeList
  35.     delete line 1 of gJukeList
  36.     put "" into gJukes
  37.     repeat with i = 1 to number of lines in gJukelist
  38.       put item 4 of line i of gJukelist&return after gJukes
  39.     end repeat
  40.     put gJukes into bg fld JukeList
  41.   end if
  42.   if direction = "up" then
  43.     put last line of gJukeList &return before gJukeList
  44.     delete last line of gJukeList
  45.     put "" into gJukes
  46.     repeat with i = 1 to number of lines in gJukelist
  47.       put item 4 of line i of gJukelist&return after gJukes
  48.     end repeat
  49.     put gJukes into bg fld JukeList
  50.   end if
  51.   put item 4 of line 1 of gJukeList into gUp2Bat
  52.   unlock screen
  53.   idle
  54. end arrowKey
  55.  
  56. on idle
  57.   global gMarquee,gJukeList, gJukes,lastticks,gPlay,pFlag,gDisc, gcurrenttrack
  58.   --Maintain the Disc and JukeBox switches
  59.   if gJukeList = "" then
  60.     set hilite of bg btn "Play Disc" to true
  61.     put "D" into gPlay
  62.     set hilite of bg btn "Play List" to False
  63.     if bg fld JukeList <> "(No Tracks Installed)" then
  64.       lock screen
  65.       put "(No Tracks Installed)" into bg fld JukeList
  66.       unlock screen
  67.     end if
  68.   else
  69.     if gJukes <> bg fld JukeList then
  70.       lock screen
  71.       put "" into gJukes
  72.       repeat with i = 1 to number of lines in gJukelist
  73.         put item 4 of line i of gJukelist&return after gJukes
  74.       end repeat
  75.       put gJukes into bg fld JukeList
  76.       unlock screen
  77.     end if
  78.   end if
  79.   if pFlag = 1 then
  80.     cdopen (item 1 of gcurrenttrack)
  81.     --look for Jukebox between tracks.
  82.     if gPlay = "J" then
  83.       if pFlag = 1 and CDStatus() <> 1 then
  84.         send mouseup to bg btn "Play" --play the next jukebox track
  85.       end if
  86.     else
  87.       --otherwise, this is Disc mode, so, maintain the Marquee
  88.       --if the Marquee doesn't show the current track name, update it.
  89.       if line (item 1 of cdtrack()) of gDisc <> gMarquee then
  90.         put line (item 1 of cdtrack()) of gDisc into gMarquee
  91.         put gMarquee into bg fld Marquee
  92.       end if
  93.       if cdstatus() = 0 then
  94.         set hilite of bg btn "Play" to "False"
  95.         put 0 into pFlag
  96.         put "" into gMarquee
  97.         put "" into bg fld Marquee
  98.       end if
  99.     end if
  100.   end if
  101.   if (the ticks - lastticks) > 60 then
  102.     put the ticks into lastticks
  103.   end if
  104.   pass idle
  105. end idle
  106.  
  107. on installTrack tracknum
  108.   global gJukeList, gJukes
  109.   put bg fld Port &","&","& tracknum&","& line tracknum of bg fld TrackList&return after gJukeList
  110.   put item 4 of last line of gJukelist&return after gJukes
  111.   put gJukes into bg fld JukeList
  112. end installTrack
  113.  
  114. on openCard
  115.   global gPlay,gMarquee,gJukes
  116.   lock screen
  117.   --Fix the scrolls of the fields
  118.   set scroll of fld PhonyScroll to 0
  119.   send mouseWithin to fld PhonyScroll
  120.   if gPlay = "D" then send mouseUp to  bg btn "Play Disc"
  121.   if gPlay = "J" then send mouseUp to bg btn "Play List"
  122.   put gMarquee into bg fld Marquee
  123.   if gJukes <> "" then
  124.     put gJukes into bg fld JukeList
  125.   else
  126.     put "(No Tracks Installed)" into bg fld JukeList
  127.   end if
  128.   unlock screen
  129. end opencard
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136. -- part 123 (field)
  137. -- low flags: 01
  138. -- high flags: 4007
  139. -- rect: left=257 top=162 right=306 bottom=504
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 9
  145. -- style flags: 0
  146. -- line height: 12
  147. -- part name: JukeList
  148.  
  149.  
  150. -- part 86 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=9 top=141 right=158 bottom=32
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 15420 / 15420
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Last
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   arrowKey left
  165. end mouseUp
  166.  
  167.  
  168.  
  169.  
  170. -- part 59 (field)
  171. -- low flags: 00
  172. -- high flags: 0002
  173. -- rect: left=9 top=179 right=199 bottom=247
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 3
  178. -- text size: 12
  179. -- style flags: 256
  180. -- line height: 16
  181. -- part name: Title
  182.  
  183.  
  184. -- part 56 (field)
  185. -- low flags: 00
  186. -- high flags: 0002
  187. -- rect: left=9 top=162 right=180 bottom=247
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 3
  192. -- text size: 12
  193. -- style flags: 256
  194. -- line height: 16
  195. -- part name: Artist
  196.  
  197.  
  198. -- part 84 (field)
  199. -- low flags: 81
  200. -- high flags: 0002
  201. -- rect: left=431 top=11 right=26 bottom=496
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 3
  206. -- text size: 9
  207. -- style flags: 0
  208. -- line height: 12
  209. -- part name: discID
  210.  
  211.  
  212. -- part 102 (field)
  213. -- low flags: 01
  214. -- high flags: 4007
  215. -- rect: left=9 top=198 right=306 bottom=42
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 3
  220. -- text size: 9
  221. -- style flags: 0
  222. -- line height: 12
  223. -- part name: Trackschecked
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   send mouseUp to fld tracklist
  227. end mouseUp
  228.  
  229. on mouseDown
  230.   send mouseDown to fld tracklist
  231. end mouseDown
  232.  
  233.  
  234. -- part 103 (field)
  235. -- low flags: 00
  236. -- high flags: 4007
  237. -- rect: left=24 top=198 right=306 bottom=247
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 3
  242. -- text size: 9
  243. -- style flags: 0
  244. -- line height: 12
  245. -- part name: TrackList
  246. ----- HyperTalk script -----
  247. on mouseDown
  248.   global startClick
  249.   put item 2 of the clickLoc into startClick
  250. end mouseDown
  251.  
  252. on mouseUp
  253.   global startClick,scrollPos
  254.   --assumptions:  top of jukelist = 198, jukelist font lineheight = 12
  255.   put item 2 of the mouseLoc into endClick
  256.   put (startClick-186+scrollPos) div 12 into startClick
  257.   put (endClick-186+scrollPos) div 12 into endClick
  258.   if endClick < startClick then
  259.     put endClick into temp
  260.     put startClick into endClick
  261.     put temp into startClick
  262.   end if
  263.   put number of lines in fld tracklist into a
  264.   if startClick <= a then
  265.     if endClick > a then put a into endClick
  266.     if endClick = startClick then
  267.       if line endClick of fld trackschecked = "‚àö" then
  268.         put " " into line endClick of fld trackschecked
  269.       else
  270.         put "‚àö" into line endClick of fld trackschecked
  271.       end if
  272.     else
  273.       repeat with i = startClick to endClick
  274.         if the optionKey is down then put " " into line i of fld trackschecked
  275.         else put "‚àö" into line i of fld trackschecked
  276.       end repeat
  277.     end if
  278.   end if
  279. end mouseUp
  280.  
  281.  
  282. -- part 138 (field)
  283. -- low flags: 01
  284. -- high flags: 0007
  285. -- rect: left=230 top=198 right=306 bottom=247
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 3
  290. -- text size: 9
  291. -- style flags: 0
  292. -- line height: 12
  293. -- part name: PhonyScroll
  294. ----- HyperTalk script -----
  295. on mouseWithin
  296.   global ScrollPos
  297.   put scroll of me into sp
  298.   if sp <> ScrollPos then
  299.     lock screen
  300.     put sp into ScrollPos
  301.     set the scroll of bg fld TrackList to ScrollPos
  302.     set the scroll of bg fld TracksChecked to ScrollPos
  303.     unlock screen
  304.   end if
  305. end mouseWithin
  306.  
  307. on mouseLeave
  308.   send mouseWithin to me
  309. end mouseLeave
  310.  
  311.  
  312. -- part 105 (button)
  313. -- low flags: 00
  314. -- high flags: A003
  315. -- rect: left=8 top=316 right=333 bottom=164
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: Install Selected Tracks
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   repeat with i=1 to number of lines in fld TrackList
  327.     if line i of bg fld TracksChecked = "‚àö" then
  328.       installTrack i
  329.       put "" into line i of fld TracksChecked
  330.     end if
  331.   end repeat
  332. end mouseUp
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339. -- part 107 (button)
  340. -- low flags: 00
  341. -- high flags: A000
  342. -- rect: left=362 top=38 right=84 bottom=396
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 28840 / 28840
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: FF
  351. ----- HyperTalk script -----
  352. on mousedown
  353.   global pFlag,gPlay, gcurrenttrack
  354.   if gPlay = "D" then
  355.     cdopen (bg fld Port) --address the current disc
  356.   else
  357.     cdopen (item 1 of gcurrenttrack) --address the current jukebox disc
  358.   end if
  359.   get CDElapsed()
  360.   CDScan 0, item 2 of it, item 3 of it, item 4 of it
  361. end mousedown
  362.  
  363. on mouseup
  364.   global pflag
  365.   if pflag = 1 then
  366.     CDPlay
  367.   else
  368.     if pFlag  =0 then CDPause
  369.     else CDStop
  370.   end if
  371. end mouseup
  372.  
  373.  
  374.  
  375.  
  376. -- part 108 (button)
  377. -- low flags: 00
  378. -- high flags: A000
  379. -- rect: left=362 top=88 right=134 bottom=396
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 10006 / 10006
  382. -- text alignment: 1
  383. -- font id: 0
  384. -- text size: 12
  385. -- style flags: 0
  386. -- line height: 16
  387. -- part name: Pause
  388. ----- HyperTalk script -----
  389. on mouseUp
  390.   global pFlag, gcurrentTrack,gPlay
  391.   if gPlay = "D" then
  392.     cdopen (bg fld Port) --address the current disc
  393.   else
  394.     cdopen (item 1 of gcurrenttrack) --address the current jukebox disc
  395.   end if
  396.   cdPause
  397.   put CDStatus() into pFlag
  398.   if pFlag = 0 then set hilite of me to "true"
  399. end mouseUp
  400.  
  401.  
  402.  
  403. -- part 109 (button)
  404. -- low flags: 00
  405. -- high flags: A000
  406. -- rect: left=312 top=38 right=84 bottom=346
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 5566 / 5566
  409. -- text alignment: 1
  410. -- font id: 0
  411. -- text size: 12
  412. -- style flags: 0
  413. -- line height: 16
  414. -- part name: Play
  415. ----- HyperTalk script -----
  416. on mouseUp
  417.   global gJukeList, pFlag, gcurrentTrack,xxxcdrefnum,gMarquee,gPlay, gJukes,gDisc
  418.   set the hilite of me to "true"
  419.   if gPlay = "D" then
  420.     --if in Disc mode,
  421.     --find out if the current disc is playing.
  422.     cdopen bg fld Port
  423.     if CDStatus() <> 1 then
  424.       --if it's not, it should be.
  425.       --So turn off the current trck and get on with it.
  426.       cdopen item 1 of gcurrenttrack
  427.       cdstop
  428.       cdopen bg fld port
  429.       put bg fld Port into item 1 of gcurrenttrack
  430.       put 1 into item 3 of gcurrenttrack --start from track 1
  431.       put line 1 of bg fld trackList into item 4 of gcurrenttrack
  432.       put bg fld tracklist into gDisc
  433.       cdplay
  434.     else
  435.       --if it is playing, advance to the next track, stop playback,
  436.       -- and start playing the next track.
  437.       put 1 + item 1 of cdtrack() into item 3 of gcurrenttrack
  438.       put bg fld port into item 1 of gcurrenttrack
  439.       put line (item 3 of gcurrenttrack) of gDisc into item 4 of gcurrenttrack
  440.       cdstop
  441.       cdplaytrack (item 3 of gcurrenttrack)
  442.     end if
  443.   else      --if in JukeBox Mode
  444.     --if playback is happening, stop the current track.
  445.     if pFlag = 1 then
  446.       cdopen item 1 of gcurrentTrack
  447.       cdstop
  448.     end if
  449.     lock screen
  450.     --get the next track ready
  451.     put line 1 of gJukeList into gcurrentTrack
  452.     --update the playlist
  453.     put line 1 of gJukeList&return after gJukeList
  454.     delete line 1 of gJukeList
  455.     --update the playlist names gobal+ display
  456.     put line 1 of gJukes&return after gJukes
  457.     delete line 1 of gJukes
  458.     put gJukes into bg fld JukeList
  459.     unlock screen
  460.     --play the next track
  461.     cdopen item 1 of gcurrentTrack
  462.     cdplay1 item 3 of gcurrentTrack
  463.   end if
  464.   --let everyone know that playback is happening.
  465.   put CDStatus() into pFlag
  466.   put item 4 of gcurrenttrack into gMarquee
  467.   put gMarquee into bg fld Marquee
  468. end mouseUp
  469.  
  470.  
  471.  
  472.  
  473. -- part 110 (button)
  474. -- low flags: 00
  475. -- high flags: A000
  476. -- rect: left=312 top=88 right=134 bottom=346
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 16441 / 16441
  479. -- text alignment: 1
  480. -- font id: 0
  481. -- text size: 12
  482. -- style flags: 0
  483. -- line height: 16
  484. -- part name: Stop
  485. ----- HyperTalk script -----
  486. on mouseUp
  487.   global pFlag, gcurrentTrack,gPlay
  488.   set hilite of bg btn "Play" to "False"
  489.   if gPlay = "D" then
  490.     cdopen (bg fld Port) --address the current disc
  491.   else
  492.     cdopen (item 1 of gcurrenttrack) --address the current jukebox disc
  493.   end if
  494.   cdStop
  495.   put CDStatus() into pFlag
  496. end mouseUp
  497.  
  498.  
  499.  
  500. -- part 111 (button)
  501. -- low flags: 00
  502. -- high flags: A000
  503. -- rect: left=263 top=87 right=134 bottom=296
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 16615 / 16615
  506. -- text alignment: 1
  507. -- font id: 0
  508. -- text size: 12
  509. -- style flags: 0
  510. -- line height: 16
  511. -- part name: Eject
  512. ----- HyperTalk script -----
  513. on mouseUp
  514.   global pFlag, gcurrentTrack
  515.   set hilite of bg btn "Play" to "False"
  516.   cdopen bg fld Port
  517.   CDEject
  518.   put CDStatus() into pFlag
  519.   handleEject (bg fld port)
  520.   arrowKey right,(bg fld port) --now that the disc is gone, don't look at it.
  521. end mouseUp
  522.  
  523.  
  524.  
  525. -- part 113 (field)
  526. -- low flags: 01
  527. -- high flags: 0002
  528. -- rect: left=175 top=7 right=31 bottom=504
  529. -- title width / last selected line: 0
  530. -- icon id / first selected line: 0 / 0
  531. -- text alignment: 1
  532. -- font id: 3
  533. -- text size: 14
  534. -- style flags: 256
  535. -- line height: 18
  536. -- part name: Marquee
  537.  
  538.  
  539. -- part 116 (field)
  540. -- low flags: 81
  541. -- high flags: 0002
  542. -- rect: left=434 top=37 right=52 bottom=453
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 0 / 0
  545. -- text alignment: 0
  546. -- font id: 3
  547. -- text size: 9
  548. -- style flags: 0
  549. -- line height: 12
  550. -- part name: Port
  551.  
  552.  
  553. -- part 120 (field)
  554. -- low flags: 00
  555. -- high flags: 0000
  556. -- rect: left=461 top=321 right=339 bottom=508
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 0 / 0
  559. -- text alignment: 1
  560. -- font id: 3
  561. -- text size: 9
  562. -- style flags: 256
  563. -- line height: 12
  564. -- part name: 
  565.  
  566.  
  567. -- part 124 (field)
  568. -- low flags: 81
  569. -- high flags: 0002
  570. -- rect: left=475 top=34 right=49 bottom=494
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 0
  574. -- font id: 3
  575. -- text size: 9
  576. -- style flags: 0
  577. -- line height: 12
  578. -- part name: lun
  579.  
  580.  
  581. -- part 126 (button)
  582. -- low flags: 00
  583. -- high flags: A003
  584. -- rect: left=348 top=316 right=333 bottom=504
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 0 / 0
  587. -- text alignment: 1
  588. -- font id: 0
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: Clear Play List
  593. ----- HyperTalk script -----
  594. on mouseUp
  595.   global gJukeList,gJukes
  596.   put "" into gJukeList
  597.   put "" into gJukes
  598.   put "(No Tracks Installed)" into bg fld JukeList
  599. end mouseUp
  600.  
  601.  
  602.  
  603. -- part 128 (button)
  604. -- low flags: 00
  605. -- high flags: 2000
  606. -- rect: left=223 top=141 right=158 bottom=246
  607. -- title width / last selected line: 0
  608. -- icon id / first selected line: 16560 / 16560
  609. -- text alignment: 1
  610. -- font id: 0
  611. -- text size: 12
  612. -- style flags: 0
  613. -- line height: 16
  614. -- part name: Next
  615. ----- HyperTalk script -----
  616. on mouseUp
  617.   arrowKey right
  618. end mouseUp
  619.  
  620.  
  621.  
  622.  
  623. -- part 106 (button)
  624. -- low flags: 00
  625. -- high flags: A000
  626. -- rect: left=262 top=38 right=84 bottom=296
  627. -- title width / last selected line: 0
  628. -- icon id / first selected line: 26340 / 26340
  629. -- text alignment: 1
  630. -- font id: 0
  631. -- text size: 12
  632. -- style flags: 0
  633. -- line height: 16
  634. -- part name: RW
  635. ----- HyperTalk script -----
  636. on mousedown
  637.   global pFlag,gPlay
  638.   if gPlay = "D" then
  639.     cdopen (bg fld Port) --address the current disc
  640.   else
  641.     cdopen (item 1 of gcurrenttrack) --address the current jukebox disc
  642.   end if
  643.   get CDElapsed()
  644.   CDScan 1, item 2 of it, item 3 of it, item 4 of it
  645. end mousedown
  646.  
  647. on mouseup
  648.   global pflag
  649.   if pflag = 1 then
  650.     CDPlay
  651.   else
  652.     if pFlag  =0 then CDPause
  653.     else CDStop
  654.   end if
  655. end mouseup
  656.  
  657.  
  658.  
  659.  
  660. -- part 132 (button)
  661. -- low flags: 00
  662. -- high flags: 2000
  663. -- rect: left=440 top=93 right=119 bottom=468
  664. -- title width / last selected line: 0
  665. -- icon id / first selected line: 32462 / 32462
  666. -- text alignment: 1
  667. -- font id: 0
  668. -- text size: 12
  669. -- style flags: 0
  670. -- line height: 16
  671. -- part name: Help
  672. ----- HyperTalk script -----
  673. on mouseUp
  674.   lock screen
  675.   help
  676.   unlock screen
  677. end mouseUp
  678.  
  679.  
  680.  
  681. -- part 135 (button)
  682. -- low flags: 00
  683. -- high flags: A003
  684. -- rect: left=179 top=316 right=333 bottom=335
  685. -- title width / last selected line: 0
  686. -- icon id / first selected line: 0 / 0
  687. -- text alignment: 1
  688. -- font id: 0
  689. -- text size: 12
  690. -- style flags: 0
  691. -- line height: 16
  692. -- part name: Install All Tracks
  693. ----- HyperTalk script -----
  694. on mouseUp
  695.   repeat with i=1 to number of lines in fld TrackList
  696.     installTrack i
  697.   end repeat
  698. end mouseUp
  699.  
  700.  
  701.  
  702.  
  703. -- part 134 (button)
  704. -- low flags: 00
  705. -- high flags: A006
  706. -- rect: left=412 top=56 right=75 bottom=502
  707. -- title width / last selected line: 0
  708. -- icon id / first selected line: 1015 / 1015
  709. -- text alignment: 1
  710. -- font id: 0
  711. -- text size: 12
  712. -- style flags: 0
  713. -- line height: 16
  714. -- part name: Play List
  715. ----- HyperTalk script -----
  716. on mouseUp
  717.   global gJukeList,gPlay
  718.   if gJukeList  <> "" then
  719.     put "J" into gPlay
  720.     set hilite of bg btn "Play DIsc" to false
  721.   else
  722.     put "D" into gPlay
  723.     set hilite of bg btn "Play List" to false
  724.     set hilite of bg btn "Play DIsc" to true
  725.   end if
  726. end mouseUp
  727.  
  728.  
  729.  
  730. -- part 133 (button)
  731. -- low flags: 00
  732. -- high flags: E006
  733. -- rect: left=412 top=38 right=56 bottom=496
  734. -- title width / last selected line: 0
  735. -- icon id / first selected line: 1015 / 1015
  736. -- text alignment: 1
  737. -- font id: 0
  738. -- text size: 12
  739. -- style flags: 0
  740. -- line height: 16
  741. -- part name: Play Disc
  742. ----- HyperTalk script -----
  743. on mouseUp
  744.   global gJukeList,gPlay
  745.   set hilite of bg btn "Play List" to false
  746.   put "D" into gPlay
  747.   set hilite of bg btn "Play List" to false
  748.   set hilite of bg btn "Play Disc" to true
  749. end mouseUp
  750.  
  751.  
  752.  
  753. -- part 130 (field)
  754. -- low flags: 81
  755. -- high flags: 2002
  756. -- rect: left=4 top=3 right=338 bottom=506
  757. -- title width / last selected line: 0
  758. -- icon id / first selected line: 0 / 0
  759. -- text alignment: 1
  760. -- font id: 3
  761. -- text size: 24
  762. -- style flags: 256
  763. -- line height: 32
  764. -- part name: Intro
  765. ----- HyperTalk script -----
  766. on mouseUp
  767.   lock screen
  768.   hide fld Intro
  769.   hide fld IntroText
  770.   unlock screen
  771. end mouseUp
  772.  
  773.  
  774.  
  775. -- part 131 (field)
  776. -- low flags: 81
  777. -- high flags: 2007
  778. -- rect: left=14 top=44 right=330 bottom=497
  779. -- title width / last selected line: 0
  780. -- icon id / first selected line: 0 / 0
  781. -- text alignment: 0
  782. -- font id: 3
  783. -- text size: 9
  784. -- style flags: 0
  785. -- line height: 12
  786. -- part name: Introtext
  787. ----- HyperTalk script -----
  788. on mouseUp
  789.   lock screen
  790.   if number of this card <> 1 then put "" into bg fld introtext
  791.   hide bg fld Intro
  792.   hide bg fld Introtext
  793.   unlock screen
  794. end mouseUp
  795.  
  796.